home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00241.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  490 b   |  18 lines
  1. on mouseUp
  2.   global relations, comments, dayNo
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   append(comments, " ")
  7.   setAt(relations, count(relations), the clickOn - 8)
  8.   if alertviolatedRule() then
  9.     cursor(0)
  10.     set the visible of sprite 16 to 0
  11.     alert("Error:  On Day #" & dayNo & ", the Ovulation Method was not followed correctly.  You should not have had relations when you did.")
  12.     set the visible of sprite 16 to 1
  13.     cursor(4)
  14.   end if
  15.   go("chart stamp")
  16.   cursor(0)
  17. end
  18.